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Sy! 

NT! 

NT! 

NT! 

NT! 

NT! 

NT! 

MMM MMP SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS NT! 
HM MPA ME MM SSS NT! 
MMMM MM SSS NT! 
MMMMMM  MMMMMM SSS NT! 
MMM MMM) «6OMMM «SSS NT! 
MMM MMM MMM SSS NT! 
MMM MMM MMM «SSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSSSSSSSS NT! 
MMM MMM SSS NT! 
MMM MMM $$$ NT! 
HMM MMM SSS NT! 
MMM MMM SSS NT! 
MMB MMM $$$ NT! 
MMM MMM $ss NT! 
MMM MMM SSSSSSSSSSSS NT! 
MMM MMM SSSSSSSSSSSS | NTS 
MMM MMM SSSSSSSSSSSS NTS 
NT! 

NT! 

NT! 

NT! 

| NT! 

| NT! 

| NT! 
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RRRRRRRR = MM MM =: 333333 CCCCCCCC }=©96-000000~—SsNN NN NN NN 

RRRRRRRR ss MM 333333 CCCCCCCC (000000 +~=ONN NN NN NN 

RR RR MMMM MMMM 33 33 cc 00 00 NN NN NN NN 

RR RR MMMM MMMM ; CC 00 00 NN NN NN NN 

RR RR MM MM MM CC 00 OO NNNN NN NNNN NN 

RR RR MM MM MM 3. te 00 OO NNNN NN NNNN NN 

RRRRRRRR ss MM “aM -_. € 00 OO NN NN NN NN NN NN 

RRRRRRRR MM MM sl 00 00 NN NN NN N NN 

RR RR MM MM 33 «CC 00 O NN  NNNN NN NNNN 

RR RR m4 me 33 «CC 00 O NN  NNNN NN NNNN 

R RR MM MM 33 33 CC 00 00 NN NN NN NN te 

RR RR MM MM 33 33 CC 00 00 NN NN NN NN =e 

RR RR MM MM «333333 CCCCCCCC }~=396-000000~—Ssé«SNN NN NN NN be 

RR RR MM MM =-«-3.33333 CCCCCCCC (000000 +~=NN NN NN NN = 

LL 11111 SSSSSSSS 

LL III] $SSSSS55 

LL I] SS 

LL 11 $5 

LL 1] 55 

LL I] $$ 

LL I] SSSSSS 

LL I] $SSSS5S 

LL I] S$ 

LL Il $$ 

LL Il $$ 

LL I] $$ | 

LLLLLLLLLL JIIIIII  $SSSSSSS 

LLLLLLLLLL }=3>sSE1©=©=— ss SSSSSSSS 
| 
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MODULE RMSCONN (LANGUAGE, (BL15S32) | 
[DENT = *vOG~ 
= 


BEGIN 


; 

; 4 

: 5 1} 

$ § 4 1] Seek ereee eee eee eee eee Ree RHA KA THA HT HHA Te ERAT eee Kee Kee eeeeeReeeeeeeeee 
: 1 !e e 
; 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 2 
; 9 009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 19 Bare : i? ALL RIGHTS RESERVED. * 
: ° * 
3 i 815 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ras O15 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3; 014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 1? 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
Boog B08 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i SEA : es TRANSFERRED. * 
: 7@ © 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $ 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
oe 0021 ie CORPORATION. : 
; Hid * 
; 56 $098 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
> Qk 0024 1 '* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ® 
: 25 0025 1 is : 
> 26 0026 1 is . 
: e7 0027 1 Lae ee eee e ee eee eee Ree AAA AE AAA AEH E AAA A TAKA ATR R AAA eee AeA Rees 
; 0028 1 

; 9 0029 1 !++ 

; 0 0030 1! 

; 1 Oo, : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

: 35 0033 1 ! ABSTRACT: 

: 4 0034 1! INDEXED SPECIFIC CODE FOR SCONNECT 

; 2 0035 1! 

me 0036 1! 

$ af 0037 1 ! ENVIRONMENT: 

; se 0038 1! 

cs oe 0039 1! VAX/VMS OPERATING SYSTEM 

; 40 0040 1! 

; «641 0041 1 !-- 

: 4g 93 1 

3 6 00435 1! 

>; 644 Boee 1 ! AUTHOR: Wendy Koenig CREATION DATE: 6-APR-78 10:11 

, 8 045 1! 

: 46 B08 1} 

; «47 0047 1 ! MODIFIED BY: 

: 48 0048 1! 

; 49 0049 1! v03-017 JwWwT0187 Jim Teague 19-Jul-1984 

$ 20 050 1! Make more appropriate error exit when user attempts 

: 1 bes ' } to connect with EOF and B10. 

; 38 088 7% v03-016 DASO001 David Solomon 25-Mar-1984 

3 2¢ bee ! } Fix broken branches. 

: 8636 B28 ' 3 v03-015 TMK0006 Todd M. Katy Oeener 1985 

‘Eee 057 1! When the new BDB stuff was implemented (RASO134), the 


— 
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; 938 1! jnplenencer neglected to put the addresses of the Al and BI 

; 059 1! ournalling BDBs within the data BDB. This corrects the problem. | 
; & bey 1! he fields within the BDBs were also being set up incorrectly 

36 «66 eo} 3 because the constant RJRSC_BLKLEN was being used as the size of 

3 ? O66 : the RMS Journalling record overhead instead of RJRSC_BKTLEN. 
@ . i 
; & 066 1! v03-014 MCNO013 Maria del C. Nasr 24-Mar-1983 

3 o? $9? : } Reorganize GETSPC and RETSPC Linkages | 
; OF 067 1! V03-013 RASO134 Ron Schaefer 16-Mar-1983 

; «68 068 1! Implement an alternate BDB strategy for ISAM AI/BI journaling. 

5 9 069 1! The technique is to allocate one huge area for eac 
; 0 070 1! BDB. This area has room for the data buffer, a BDB and RJR 

a 071 1: for Al journal ing: a data buffer, BDB and RJR for BI 

; £ 0072 1! ournal ng. The normal BDB points to the Al buffer. 
es 0075 1! he Al and BI journal ine BDBs are not allocated on the 
; 0074 1! normal BDB chain but instead are only found from the 
3 fe Bore : data bucket BDB. 

ee a 0077 1! v03-012 MCNO012 Maria del C. Nasr 24-Feb-1983 | 
; «78 0078 1} Reorganize Linkages 
res... 0079 1! 

: 80 0080 1! vO3-011 TMKO00S Todd M. Katz 22-Dec-1982 | 
; 8 0081 1! If the file allows updates, and is either a proloque 3 file or 

‘= 2 00 1! defines alternate keys. then there is a new record buffer which 

; § 00 1: must be allocatec The address of this buffer is stored in 

; =B4 0084 1! IRBSL_OLDBUF, and t is the same size as the internal record 

s 35 0085 1! buffer. I have increased the size of the record buffers by two 

; @& 0086 1! in some cases, to allow for both the size of the record and the 

3 rH a $4 : record itself to be stored side by side within the same buffer. | 
; 8 0089 1 VO3-010 TMK0004 Todd M. Katz 06-Dec-1982 
; 90 0090 1! If the file is a prologue 1 or 2 file, contains alternate 

5; 0091 1! keys, and is open for write access then allocate a record 

; & 0092 1! buffer and store its address in IRB$L_RECBUF. This record 

:; 95 0093 1! buffer will be used to store the primary data record being 

; 94 0094 1! deleted during a SDELETE. The use of this buffer has become 

; 0095 1! necessary because of the changes made in the SDELETE algorithm. 

5 & 0096 1! The user data record is now deleted before the alternate keys, 
; 0097 1! instead of the other way around which is how it has been done in 

; «98 0098 1! the past. Thus, the primary data record must be saved off to 

s WW 0099 1! the side so that after the user data record has been deleted it 

: 100 0100 1! is still available for the extraction of the alternate keys as 
3 101 bios part of their deletion. This record buffer is used to save the 
: 1s b108 : primary data record. 
3: 104 0104 1! v03-009 TMKO0003 Todd M. Katz 02-Dec-1982 
; 105 bie 1! The number of keybuffers is now represented by the constant 

; 18 ie : } IFBSC_KBUFNUM. 

; 108 0108 EE v03-008 TMK0002 Todd M. Katz 24-Nov-1982 
; 1% B10 : Allocate a seventh keybuffer. 

3 (111 oi . 3 v03-007 KBT0336 Keith Be Thompson 10-Sep-1982 

3 V6 18 ' ; Remove ref. to RM$GETSOSPC routine 

2 114 B42 1! v03-006 KBT0160 Keith B. Thompson 21-Aug-1982 
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0% eae eee Meee eF reek dWeAlS teaches see Samsconn.e3220°% «13 
Reorganize psects 


v03-005 TMKO001 Todd M. Katz 22-Jun-1982 
Implement the RMS cluster solution for next record positioning. 
Instead of soresay the NRP context in system space, RMS now 
keeps it locally in the IRAB. As a result it no longer has 
to allocate space for a NRP cell, and so that maybe deleted 
from this routine. Also, allocate a sixth keybuffer. F aotty 
the function of the bit IRBSV_EOF has been replaced by the it 
IRBSV_CON_EOF. 


v03-004 KBT0055 Keith B. Thompson 88-Jun-1982 
No lrager need to allocate any index descriptors on connect 


v03-003 KPLOO3 P Eteberyi ree 25-May-1982 
Fix bug intoduced by KPLOO02. Can't call RMSDISCOMMON 
on errors allocating 8DBs or global buffers. 


v03-002 LJA0007 Laurie Anderson 25-Mar-1982 
Change KBUFSZ to reference a macro when computing buffer 
size and make IFBSB_KBUFSZ a word, now: IFBSW_KBUFSZ. 


v03-001 KPL0002 P Lieberwirth 17-Mar-1982 
on't allow both PUT to EOF and Block 10 to be specified. 
+ ey tte Naha on this error and errors allocating BDBs. 
su e. 
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6 

7 

8 

9 

? 

¢ v02-020 KPLO0001 P Lieberwirth 5-Nov-1981 
i Add support for PUT to EOF. 

5 v02-019 CDS0002 C Saether 29-Sep-1981 
§ Always allocate 5 keybuffers for all plgs. 

8 

9 Remove eupper’ for truncated keys in INDEX on 

? prologue three files. 

§ v02-017 CDS0001 C Saether 06-Aug-1981 

Deallocate index descriptors if BRO create 

¢ and BIO connect. 

6 V02-016 MCNO011 Maria del C. Nasr 19-Jun-1981 
4 Add a fifth key buffer for prologue 3 files. 

9 v02-015 PSK0001 Paulina S. Knibbe 12-Jun-1981 
0 Allocate a ‘split context’ block whenever we do 

1 a connect on a prologue three file. 

: v02-014 MCNO008 Maria del C. Nasr 15-May-1981 
os Add a fourth key buffer for prologue 3 files. 
66 v02-013 MCNO007 Maria del C. Nasr 20-Apr-1981 
67 Add code to allocate record output buffer for prologue 3 
$8 files. 
% V02-012 REFORMAT Ken Henderson 29-Jul-1980 
71 The code was reformatted. 


| 
| 
| 
| 
v02-018 PSK0002 Paulina S. Knibbe 08-Aug-1981 | 
| 
| 
| 
| 
| 
| 
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RM3CONN 16 56 
v04-000 12 Se 


g REVISION HISTORY: 

5 Wendy Koenig, 24-JUL=78 13:34 

§ x0002 = allocate 3rd keybuffer to store primary key on put 
8 Wendy Koenig, 24-0CT=78 14:01 

2 X0005 = make changes caused by sharing conventions 

1 Wendy Koenig, 25-OCT-78 13:05 

¢ x0004 = increment nrp_vbn in case it's bio 

4 Wendy Koenig. 3-NOV-78 8:48 

5 X0005 = allocate update buffer for all keys 


bro turns to record i/o and put accessed, allocate the key desc 


Wendy Koenig, 6-NOV-78 13:05 
X0006 = check for eof bit in rop, if found, give error 


Wendy Koenig 13-NOV-78 13:28 
x0007 - sharing implementation changes 


Wenex Koenig, 20-NOV-78 10:54 . 
x0008 = allocate bcb's and other changes for sharing 


Wendy Koenig 28-NOV-78 15:22 
X0009 = bdballoc will now allocate tie minimum # for isam, so don't call 


oon 
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bdballoc_alt 
1 wendy Koenig, 22-JAN-79 13:05 
¢ 7 - allocate a lock bdb per stream, not per file ( needed for update 
Christian Saether, 26-Oct-79 23:45 
54 0011 = rm$bdballoc now allocates lock bdb and does block i/o right 
08 eeeee 
09 
19 LIBRARY ‘RMSLIB:RMS'; 
i REQUIRE ‘RMSSRC:RMSIDXDEF'; 
\3 : Define default psects for code 
16 PSECT 
17 CODE = ee OSES ATTN? 
H PLIT = RMSRMSS(PSECT_ATTR); 
3 : Linkages 
3¢ LINKAGE 
_BDBALLOC, 
4 8 L_ERROR_LINK1, 
5 9 L_GETSPC. 
$ L-LINK_7_10_11, 
$3 L-RABREG, 
8 92 L_RABREG_7, 


4 
) 


<2 
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LLRETSPC; 
External Routines 
EXTERNAL ROUTINE 

RMSBDBALL 


: RLSBDBALLOS ADDRESSING MODE( LONG RELATIVE ) 


: RLSRETSPC”NOVALUE ADDRESSING MODE( LONG RELATIVE ), 
: RLSGETSPC ADDRESSING_MODE( LONG_RELATIVE ) 


R 
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RLSERRO OR_L NK! ADDRESSING _MODE( LONG_RELATIVE ), 
RLSERWOR c a " ADDRESSING _MODE( LONG_RELATIVE ), 


ee 
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vO4-000 RMSCONNECT3B 10230-1384 Mohit? DT SKSVMSMASTERSERMS. SRCTRMSCONN.B32; 1 = (2) 
ZSBITL 'RMSCONNECT3B° 
GLOBAL ROUTINE RMSCONNECT3B : RLSRABREG = 


\++ 
FUNCTIONAL DESCRIPTION: 


This module performs the following functions required for 
connecting indexe les: 
1 == performs various validity ¢ hecks 
2 -- if connect for block i/o allecete a BDB and exit after 
first goes .ayet on ingex yates Sovars if BRO create 
3 -- allocate BDB's and buff _ s depen eine on access mode 
-- if write accessed allocate a lock BDB 
-- and if shared, allocate 
-- allocate key butters and on update buffer 
-- allocates 7 key buffers of keybufsize 
-- allocate record output buffer 
-- allocate old record buffer if podete accesses allowed 
-- initialize various fields in the 
oe seitieee the next record positioning information kept within 
e 


CALLING SEQUENCE: 


BSBW RMSCONNECT3B 
Entered via case branch from RMSS$CONNECT and BSBW from RMSCONNECTS; 
returns to RMSCONNECTS and then exits from RMS directly 
(i.e - - aussees it branches to RMSEXSUC 
- ror, it calls either RMSCCLNI to deallocate the IRAB or 
RMSCOMCLNUP to deallocate the BDB's, buffer's, BCB's, and the 
IRAB, and then branches to RM$EX_NOSTR) 


INPUT PARAMETERS: 
none 
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IMPLICIT INPUTS: 


R8 -- RAB address 
aT -- IRAB er 
R10 -- IFAB addre 
RI -- IMPURE AREA. address 
contents of RAB and IRAB 


OUTPUT PARAMETERS: 
none 
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IMPLICIT OUTPUTS: 

Set various fields in IRAB and IFAB 
ROUTINE VALUE: 

Usual RMS status codes 
SIDE EFFECTS: 


AAA AAI AAAI AAAI AAA AA NININIAI AANA 
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RMSCONNECT3B ep-1984 94:38:39 DISKSVMSMASTER: CRMS.SRCJRM3CONN.B32;1 . (2) 
! Allocate BDB's and buffer's, ke 
output buffer and old record buffer, and zero out all next record 
positioning context variables kept within the IRAB except for the 
current key of reference which is initialized to that specified 
by the user in the RAB. 


N 
16-$ 
14-$ 

buffers and update buffer, record 


ooo 


BEGIN 


OOCSKSCCOCOVO0O0oO 
an 
we 


] 
04-000 
: 1 1 
3 ; ¢ 1 
; ¢ 1 
: 304 67 1 
: 305 68 1 | 
; 306 o? 1 
s 307 0 1 
; 308 vi 
; 309 ie: 
; 10 7 
: 11 74 ACRO 
; \¢ i 75 DEALLOC_KEYBUF = 
: 1 M £8 BEGIN 
: 14 M 037 
3 \? : 8 4 SIZE = .IFABCIFBSW_KBUFSZ]*IFBSC_KBUFNUM; 
.. oie i] 0380 IF .SIZE LSS 12 
: 318 M9383 NIZE = 12 
; 35 M $338 
3; Sey M0384 2 RMSRETSPC1 ( .SIZE, 0, KEYBUF_ADDR(1) ); 
5 $6 m 0385 2 RMSDISCOMMON(); 
3 3 M 0386 RETURN .STATUS; 
5 4 0387 END; 2%, 
; $52 0388 
3 26 M 0389 DEALLOC_UPDBUF = 
s Ser M 0390 
3; 328 M 0391 IF .IFABCIFBS$V_UPDJ 
3; 329 M 8338 2 THEN 
3 ; 0 M 039 $ BEGIN 
3 1 M 0394 SIZE = .IFABCIFBSB_NUM_KEYS); 
; $38 m 0395 2 
3 35 M0396 2 IF .SIZE LSS 12 
3; «334 m 0397 2 THEN 
3 355 M 0398 SIZE = 12; 
3 $99 M 0399 
5 37 M 0400 RMSRETSPC1 ( .SIZE, 0, .IRABCIRBSL_UPDBUFI ); 
; 338 M 0401 END; 
; 339 ot 4 END; 2%; 
: 340 Be8 
3 $4) 404 BUILTIN 
: ri} 0405 TESTBITSC; 
; 34 0406 
3 44 ot 34 EXTERNAL REGISTER 
: 45 0408 COMMON_RAB_STR; 
; 346 0409 
3 47 0410 GLOBAL REGISTER 
: 348 941) R_IDX_DFN_STR; 
; 349 tig 
3 50 be LOCAL 
$ 2) bet SIZE; 
3 26 0416 : Sugpore PUT to EOF by translating ROP bit into IRAB bit for use on first 
8 54 eh FA . PUT. 
; 355 418 i 
3 56 041 IF .RABCRABSV_EOF J 
: 357 0420 THEN 


| 
-- 


B 3 
16-Se 
RMSCONNECT3B 14-Se 
0421 
r ¢ Don't allow EOF and BIO to both be specified. 
4o4 if .RABCRABS$V_B10] 
425 THEN 
4 $ BEGIN 
4 RMSCCLN1(); 
0408 RETURN RMSERR(ROP) ; 
0429 EN 
0430 ELSE 
+ IRABCIRB$V_CON_EOF]) = 1; 
4 
Bt : } In case we're in block i/o mode, have to do this -- same field as NRP_PTR. 
0436 2 [RABLIRBSL_NRP_VBN) = .IRABCIRBSL_NRP_VBN) + 1; 
0438 ; ! If SOPEN or SCREATE was done with bro specified, use the bio rop bit 
0439 ! to determine whether to connect for block or record operations. note: 
rey 2 any subsequent connects are necessarily of the same type. 
044 if TESTBITSC (IFABCIFBSV_BROJ) 
cE ae 
0445 2 ! If block io deallocate the index descriptors and set the bio bit in 
bees 2 the ifab to disallow record operations 
0448 $ if .RABCRAB$V_BI0) 
0449 $ THEN 
0450 BEGIN 
0451 3 RMSCLOSE3(); 
0452 IFABCIFB$V_BI0) = 1 
04535 2 END; 
0454 2 
beee § IRABCIRB$L_CURBDB) = 0; 
0457 2 ! Allocate all of the BDB's and buffer's and BCB's ( 1 BCB per BDB). 
0458 2 ! RMS$BDBALLOC handles all defaulting such that a minimum of 2 buffers 
0459 2 ! are allocated plus a lock BDB (no buffer) if write accessed. For block 
0460 ! i/o a BDB only (no buffer) is allocated. Exit after BDBALLOC if block 
gee! ! i/o. Also, count all ‘extra’ buffers (number in excess of 2 buffers) 
0668 ! If either Al or BI journaling is enabled then a more complicated BDB 
464 ! and buffer strategy is used. Basically the data and Al buffer is 
465 ! shared, there is a separate Bl buffer and there are separate Al 
046 ! and BI BDBs and RJRs allocated out of this one huge area. 
046 ! The reason for the one huge area is to make sure that the RMOx 
468 ! level of the system sees only normal BDBs and buffers. 
“1 3 The addressing of the other portions is as follows: 
0471 i 
047 ' coe PMP OP eeeeeeeseerersesese Bp a a + 
047 ‘ : data BDB Fo os ae a et. >! Al BDB ‘ 
474 ! ' ‘ ' : ‘ 
O75 ' ' BDB$L_AI_BDB------- | memmenennoeeenne ' ' 
47 ! : : coe! eoeene BDBS$L_ADDR ‘ 
047 : : ‘ , a ' 
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Vv04 RMSCONNECT3B 1 Or 9be 04:38:33 PTAC SVMOMARTERS LAME SRC TRNSCONN.B32:1 - (2) | 
' 


| 

| 
b4 415 47 ' ' Semana se arena anew seaman} i 3 
i 416 4? i i i he AI RJR ! | ; 
; (41 480 : : ' -->! i : 
3 $13 4 1 ' ! § bee me em mee ee ee ee a er Ch a | 3 
: 41 4 ¢ i ' BDBSL_ADDR See eoce!eonwe weer ware m err e ase eae >! ' e 
; 420 48 : : : 2 data buffer 3 : 
: 621 484 i i re | : 
; 4 ¢ 485 ‘ ! ' ! BI BDB ‘ : 
oi 48 ' ' BDB$L_B1_BDB------- ere >! ' $ 
> 424 048 wo- | ------ BDBS$L_ADDR ; 
: 625 488 i juncnenmenennmenes + 1 i i : 
; & $ 489 ' 7 + 3 
; 4 490 ' 7% BI RJR : ; 
; 428 0491 ! ==>! : 
: 429 049 ' paccocescccesesescocone $ 
: 430 049 ' H data buffer ' ; 
3 431 0494 : 3 
: 4 ; 0495 ' : : : 
s & 049 ' pewwwwwwewowoooeooooeoe + | 3 
3 § 049 : 
; 435 0498 BEGIN : 
; 436 0499 $ 
3; 437 0500 LOCAL : 
: 438 0501 ! max bucket size ; 
: 439 B206 BUF SIZ, ' size of buffer to allocate : 
; 440 050 JBDB: REF BLOCKC,BYTE), ! pointer to jnl $ 
3 ree Bede DBDB: REF BLOCK(,BYTE); ! pointer to data bdb : 
3 £08 0506 BUFSIZ = BKS = .JFABCIFB$B_BKS) * 9; | 3 
: 444 0507 : 
3; 64445 0508 IF .IFABCIFB$V_AI) ; 
: 446 0509 THEN 3 
3 rot 4 Bato BUFSIZ = .BUFSIZ + RJRSC_BKTLEN + BDBSC_BLN; : 
3: 449 B26 IF .IFABCIFB$V_B1I : 
; 450 051 THEN F 
3 $3) Bele BUFSIZ = .BUFSIZ + .BKS + RJRSC_BKTLEN + BDBSC_BLN; : 
3 ret B21$ RETURN_ON_ERROR (RMSBDBALLOC (4, .BUFSIZ)); : 
3; 455 0518 ! The new BDBs are allocated onto the end of the BDB chain ; : 
; 45 0519 ! so now go backwards over the BDBs, carving them up as appropriate : 
3 $2 R360 : into the journaling data structures as needed. : 
3 2 03 ¢ DBDB = .IFABCIFBS$L_BDB_BLNK); | : 
; ret b2 3 i INCR | FROM 1 TO .IJRABCIRBSB_BCNT) DO | : 
: 46 5 $ 4 DBDBCBDBSW_SIZEJ = .BKS; : 
: 664 5 4 5 
3; 465 5 3 4 IF .IFABCIFBS$V_AIJ ; 
: 466 559 & THEN | : 
; 467 530 GIN : 
; 468 531 JBDB = .DBDBCBDBS$L_ADDR); 3 
; 469 53¢ DBDBCBDBSL_AI_BDBJ"= .Ja0B; | : 
; 471 5 JBDBCBDB$B_BID) = BDBSC_BID: | F 

| 

| 


Ee. 
RMSCONN 16-Sep-1984 01:38:5 VAX-11 Bliss-32 V4.0-74 Page 10. 
vO4=000 RMSCONNECT3B Ve=8ep-1984 13:01:17 DISKSVMSMASTERSERMS: SRCSRMSCONN.B32:1°7" (25. 
; 47 5 JBDB{BDBSB_BLN) = BDBSC BLN/4; ; 
3; 47 § JBDB BDBSL_FLINK] =. : ‘ 
; 476 JBDB BDBSL BLINK. | = ,JBDB; ; 
; 475 3 JBDBLBDBSW_SIZE .BKS + RJRSC_BKTLEN; ; 
; 4? 5 JBDBLBDBSL_ADDR) = :JBDB + BDBST BLN; : 
: ry As rk : ~y BDBSL_ADDR) = .JBDB + BDBSC_BLN + RJRSC_BKTLEN; : 
: 479 42 4 | ; 
: ret ‘8 : i IFABCIFOSY,213 : 
: 68 545 | : 
; 4 y 278 JBDB = .DBDBCBDBS -ADDRJ + .BXS; $ 
; Z : Fae DBDBLBDASL _81_BDB . JBDB: | : 
: 686 0549 JBDB(BDB$B BID) = BDB$C_BID ; 
: 487 550 é JBDB(BDB$B_BLN) = BDBSC"BLN N/4; ; 
; 488 551 JBDBCBDBSL_FLINK] = .JBDB; : 
; 4689 226 5 JBDBLBDBSL_BLINK JBD 8; ; 
; 490 055 : JBDBLBD BSW_ SIZE) = = ics * RJRS$C_BKTLEN; ’ 
; 491 Beee JBDBCBDBSL “ADDRIJ = .JB0B + BDBST BLN; : 
; 49 555 4 END; 3 
; 49 B228 4 DBDB = ‘ DBDBLBDBSL BLINK]; 3 
; 4946 055 ; END; 3 
; 496 ba26 2 END | ; 
: 497 0560 : | : 
; 498 0561 ! If open for block io return 3 
; 499 b20§ ! 3 
; 500 056 IF .IFABCIFB$V_BI0) ° 
; 203 Beee THEN 3 
3 4 565 RETURN RMSSUC(); 3 
; 3 0566 3 
: 4 £544 IF .IRABCIRB$B_BCNT) GTR 2 ; 
; 506 0569 IFABLIFBSB_EXTRABUF] = .1FABCIFBSB_EXTRABUF] | : 
; dA B2e9 (. IRABCIRB$B_BCNTJ = 2); : 
; $09 6276 5 ; Set up the key descriptor for the primary key | | 
: sii bere 2 RETURN -ON_ERROR (RMSKEY_DESC(O), RMSDISCOMMON()); | : 
; 218 0576 ! The following code is made of the sections that allocate the remaining | : 
3 315 eee : *trvbey bul fe : 
° . = e 6 
3 16 358 ! = update bu butter if update set 3 
: 17 580 : d record buffer if update set 3 
: 18 581 { = record buffer 
3 19 5 § ' In each case, if it fails to allocate any of the structures, it 
5 ? : deallocates any of those already allocated, and returns. 
; é 3 5 BEGIN 
; 526 5 LOCAL 
; 5 : : STATUS; | 
é 
; 359 590 ! Allocate the keystring buffer (IFBSC_KBUFNUM * .IFBSW_KBUFSZ). 
3 es 0591 ! 


3 
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yOes000 RMSCONNECT3B 12-8 08-1 384 et Be DTEKSVMEMASTER CAMS. Sac SRNSCONN.B32:1 ’ (2) 

5 92 4 BEGIN : 
684 {> Serres | : 
3 ; 95 BLK : REF BBLOCK; ; 
: 2 33 ? SIZE = .1FABCIFBSW_KBUFSZ] * IFBSC_KBUFNUM; : 
: 99 4 IF .SIZE LSS 12 | ; 
; 00 4 THEN 3 
3 3 4 ? SIZE = 12; : 
: 54 8 4 IF RMSGETSPC1( 0, .SIZE; BLK ) | : 
Ps 4 6 4 4 T N | Py 
: $e 605 ‘ : IRABCIRBSL_KEYBUF) = .BLK 3 
: 544 S609 4 RETURN RMSDISCOMMON(); : 
5 rh Rope ND; : 
: ‘3 Berd If update is set, then allocate an update buffer. : 
; ; O61 IF .IFABLIFBSV_UPD] : 
3 50 1 3 
3 51 0614 4 BEGIN 3 
3 26 0615 4 : 
; 55 0616 4 LOCAL : 
3 54 0617 4 BLK : REF BBLOCK; : 
; 555 0618 4 : 
: 28 0619 4 SIZE = .1FABCIFB$B_NUM_KEYS); : 
: 558 06 1 4 IF .SIZE LSS 12 : 
; 560 0623 4 SIZE = 12; : 
; 561 06 = ; 
; 26¢ 06 5 ; IF (STATUS = RMSGETSPC1 ( 0, .SIZE: BLK ) ) : 
; $64 06 ; 4 gg PRABEIRESL_UPDBUF] = .BLK 2 
; 66 0699 4 DEALLOC_KEYBUF ; ; 
; th Beas END; ! end of update buffer allocation : 
: 569 ot) ! Determine the number of bytes to allocate for a record buffer depending 3 
3 3/0 Be ? on maximum record size. : 
; 2 0635 if .IFABCIFB$W_MRS) EQLU 0 | ; 
3 y 0638 is SIZE = .IDX_DFNCIDX$B_DATBKTSZ] * 512 : 
; ds } If JFABLIFBSB_PLG_VER] GEQU PLGSC_VER.3 | ; 
: 38 1 SIZE = .IFABLIFBSW_MRS} + IRCSC_KEYCMPOVH : 
3 5 ; . JRCSC_DATCAPOVH | : 
: 581 4 ELSE | ; 
; a¢ 5 SIZE = .IFABCIFBSW_MRS] + 2; : 
: 38 o66 | ; 
3; 584 4 IF .SIZE LSS 12 : 
; 585 48 THEN 3 

| 


F 3 
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RMSCONNECT3B Freon eet Peek UWOAASFERCCHMe seCTRMSCONN.B32510%" (25 


; 649 SIZE = 12; | 
3 6 ; ! Allocate record output buffer for unpeckin of prologue 3 data records. : 
$ 9 6 4 ! Also allocate a record buffer if the file is a prologue 1 or 2 file, is : 
; rs Z ; opened for write access, and defines secondary keys. ; 
3 35 636 3 IF (.IFABCIFBSB_PLG_VER] EQLU PLGSC_VER_3) : 
i 33 $i (. IFABLIFBS$B_NUM_KEYS] GTRU 1 | ; 
3 399 228 4 AN 3 
; 659 4&4 - IFABCIFBSV_WRTACC)) F 
3; wy $9 3 THEN | 3 
; 598 661 4 BEGIN 3 
; 599 reg) 4 : 
; 600 663 4 LOCAL ; 
: 601 664 4 BLK : REF BBLOCK; 3 
; 60 0665 4 s 
H eB Bee8 ? IF (STATUS = RMSGETSPC1 ( 0, .SIZE; BLK ) ) ; 
3 ope pee8 ? IRABCIRBSL_RECBUF] = .BLK : 
; 607 0670 4 ' Deallocate update buffer, and key buffer on errors. 3 
; 608 pert 4 ' F 
; 609 72 4 3 
; 610 06735 5 BEGIN 3 
; 611 0674 2 DEALLOC_UPDBUF ; 3 
3 ole 0675 DEALLOC_KEYBUF ; 3 
; 661 0676 4 END; 3 
3; 614 0677 4 : 
3 615 0678 4 ! if ypeete access has been specified and either the file is a proloque : 
; 616 0679 4 ‘ file or alternate keys have been defined, allocate the old recor 3 
; 617 0680 4 ' buffer. On errors, return all internal structures that have been F 
; 618 0681 4 ' allocated. : 
; 619 pone 4 ! : 
; 620 0683 4 IF .IFABCIFBS$V_UPD) F 
; 621 0684 4 THEN $ 
3; 6 ¢ 0685 5 BEGIN 3 
3; @ bee : : 
; 624 8 LOCAL : 
; o¢? 0688 5 BLK : REF BBLOCK; : 
3 § $ 0689 5 3 
; 62 0690 IF (STATUS = RMSGETSPC1 ( 0, .SIZE; BLK ) ) : 
; 628 0691 HEN 3 
: 629 $698 IRABCIRBS$L_OLDBUF] = .BLK : 
; 630 69 : 
: o3) Beas Deallocate the record buffer, update buffer, and key buffer. | : 
; $34 0696 . ELSE | 3 
; 634 97 6 3 
; 635 0698 6 RMSRETSPC1 ( .SIZE, 0, .IRABCIRBSL_RECBUF) ); : 
3 $36 343 6 DEALLOC_UPDBUF ; ; 
; 637 00 g DEALLOC_KE YBUF ; ; 
: 638 701 END; 3 
; 639 108 4 END; : 
; 640 7 END; F 
> 641 704 END; | : 
3; 642 705 : 

| 

| 

} 

| 
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ww 


se 


“EXTRN RMSCLOSE3, RMSDISCOMMON 
"EXTRN RMSKEY_DESC, RMSRETSPC1 
~-EXTRN RMSGETSPC1 


-PSECT RMSRMS3,NOWRT, GBL, PIC,2 


v04 
; 643 7 $ ! The next record positioning information is kept in the IRAB. It was 
; 644 7 ' zeroed out when the JRAB was allocated; Frerevere. the first record 
3; 645 7 3 ! retrieved sequentially will be the very first record in the designated | 
‘ ong 8 key of reference. 
: ote 711 i Initialize the current key of reference to that which is specified by 
3 $33 at } the user in the RAB. 
: get 714 iRABCIRB$B_CUR_KREF] = -RABCRABSB_KRF); 
3 $36 715 RETURN RMSSUC(S; 
> 65 O716 | 
3; 654 71 1 END; ' { end of routine } 
| 
-TITLE RM3CONN | 
-IDENT \v04-000\ 
EXTRN paseren, Loc RMSCCLN1 
| 


OOFC  8F BB 00000 RMSCONNECT3B:: 
PUSHR #*°M<R2,R3,R4,R5,R6,R7> ; 0308 
: 04 C3 00004 SUBL2 #4, SP : 
1 05 A& €9 00007 BLBC 5(RAB), 3$ + 0419 
OE 05 03 €1 9008 BBC #3, 5(RAB), 28 + 0424 
000000006 EF 16 0001 JSB Rig CLNI + 0427 
0 867C 8F 3C 00016 MOVZWL #34428, RO + 0428 
40 31 00018 1$: BRW 36$ ; 
06 Ad 80 8F 88 0018 gs: BISB2 #128, 6(IRAB) + 0431 
40 a9 D6 0023 3$: INCL  64(IRAB) + 0436 
0c 22. AA 06 E5 00026 BBCC 46. 34 (1F AB) 4$ : 0442 
07 05 AB 03 €1 00028 BBC ft (RAB) ds > 044 
00006 30 000 SBW Rig CLOSE + 0451 
22. AA 20 88 9003 B1SB2 #32 4(1F AB) > 045 
20 A9 pA 0037 4$: CLRL.  32(fRAB) : 045 
50 E AA 9A O003A MOVZBL 94(IFAB), RO > 05 
6E 0 09 73 00 ASHL #9, RO, BKS ; 
55 6 D 04 MOVL KS, BUF SIZ ; 
05 00AO «(CA Fl 4 BBC #3, 160(1FAB), 5$ > 0508 
55 0094 F 048 MOVAB 148(R5), BUFSIZ : 0519 
08 00AO «(CA t 50 5$ C a 160U1FAB), 68 : 0512 | 
50 $f 00000094 8F C1 0036 ADDL3 #148, BKS, RO > 0514. 
0 CO 0005€ ADDL2 RO, Bur Siz ; 
54 04 00 906) 68: VL #4. R > 0516 
000000006 ef 1 64 JSB RMSBDBALL OC ; 
AE O€ O06A BLBC STATUS, 1$ ; 
31 64 OA BO 060 VL B(IFAB), pepe : 0522 
2 54 a9 A 00071 MOVZBL 84(IRAB). > 0524 
3 D4 13 CLRL > 0528 
D 11 0007 BRB 0$ ; 
16 Al oF 80 79 7$ MOVW  =BKS, 23 (DBDB) : 05 6 
27 00A cA fl 9 C #3, 160(1FAB), 8% : 05 
0 18 Al 00 0008 MOVL 24(DBDB), JBDB > 0531 


H 3 
RM3ZC 16-Sep-1984 01:38:5 VAX-11 Bliss-32 V4.0-74 Page 14. 
YOe-000 RMSCONNECT3B erent eee TEST? eee chdwGALS fens chne sac Samscomw.e32:1°° 2) 
4 Al 0 D 7 MOVL JB8DB, 52(DBDB) : 0532) ; 
8 A 140C BF B te MOV #5188, 8(oBDB) : 334 ; 
6 0 D MOVL JBDB, (JBDB) : 336 ; 
06 =A D 94 MOVL. JBDB, 08) : 05 ; 
16 Ad 6 0044 BF A 98 ADDW3 #68 BKS é (JBDB) : 0538 ; 
18 OA 50 AO 9E Oo OV : (RO), 24(JBDB) + 0539 ; 
1 Al 0094 f 4: AG MOVAB 148(ROS, 24(DBD ; 340 3 
22 0OAO «CCA E OAA 8$: BBC 2, 160CIFAB), : 054 : 
18 «OA F C1 80 ADDL3 KS, 24(DBDB). JBDB : 46 ; 
30 A 09 0B MOVL 1808 (DBDBS : 054 ; 
08 Ad 140C 8F BO 00089 MOVW 132, 8(JBDB) + 0549 : 
6 0 06 OB MOVL JBDB, (JBDB) : 0591 ; 
046 A D ce MOVL. JBDB; 0B) : 336 ; 
16 Ao 6 0044 BF Ai 000C ADDW3 #68, BKS, 22(JBDB) : 055 ; 
18 «OA 50 AO 9E 000CD MOVAB 80(RO), 34(JBDB) + 0554 ; 
51 04 Al 00 00002 9$: MOVL  4(DBDBS : 0556 ; 
OF 53 32 F3 00006 10$:  AOBLEQ R2, | $ + 0524 ; 
03 22. AA 0 FI OODA BBC #5. 34(1FAB), 11$ : 0563 ; 
0179 31 000DF BRW 35§ : ; 
02 52 91 OO0E2 11$:  CMPB  R2, #2 + 0567 ; 
OE 18 OOOE BLEQU 1 : ; 
50 00B6 CA 9A OO0E7 MOVZBL 182(IFAB), RO + 0570 ; 
50 52 CO OOOEC ADDL ; : ; 
00B6 CA 50 02 83 OOOEF SUBB3 «#2. RO, 182(IFAB) > 0569 ; 
7E ps OOOFS 12$:  CLRL  -(S§P) : 0574 | ; 
00006 30 000F7 BSBW © RMSKEY_DESC : ; 
SE 04 CO OOOFA ADDL2 #4, SP : ; 
34 50 £9 OOOFD BLBC STATUS, 14$ : : 
56 0084 CA 3C 00100 MOVZWL 180(IFAB), SIZE : 0597 : 
56 06 C4 00105 MULL2. # : : 
0c 56 D1 00108 CMPL SIZE, #12 + 0599 ; 
03 18 0010B BGEQ : ; 
56 0C D0 0010D MOVL #12, SIZE + 0601 : 
52 56 D0 00110 13$: MOVE SIZE, R2 + 0603 : 
51 D4 0011 CLRL : ; 
000000006 EF 16 00115 JSB RMSGETSPC1 ; ; 
06 50 £9 001168 BLBC _—s-RO, : ; 
60 Ag 51 D0 OO11E MOVL BLK, 96(IRAB) > 0605 ; 
09 11 0012 BRB : ; 
000000006 ff 16 00124 14$: JSB RM$D1ISCOMMON : 0607 ; 
0131 31 OO12A BRW : ; 
37 22. AA 03 FI 0120 15$: BBC #3, 34(1FAB), 19$ + 0612 : 
56 0082 CA 9A 001 ‘ MOVZBL 178(IFAB), SIZE : 0619 : 
0c 36 D1 01 CMPL SIZE, #12 : 0621 ; 
03 18 0013A BGEQ 16$ : : 
56 O¢ D0 0013¢ MOVL #12 SIZE > 0623 : 
52 6 DO 0013F 16%:  MOVL SIZE, R + 0625 ; 
51 04 Oi42 CLRL RI : : 
000000006 ft 16 00144 JSB RMSGETSPC1 : : 
6E 0 D0 14A MOVL RO, STATUS : ; 
06 —E €9 0014D BLBC ‘STATUS, 17$ ; 3 
64 Ad 1 00 00150 MOVL BLK, 160(IRAB) > 0627 3 
13 11 00154 BRB 1¢ : ; 
56 00B4 CA %3C 00156 17%: MOVZWL 180(IFAB), SIZE > 0628 3 
be g St Oolee Cut’ Sites wiz Aisa 
88 19 O18 BLSS 8S : ; 
| 


ee 


eRe ne 2 aa ; 


RASC 1b-se Sep-1984 75 VAX-11 Bliss-32 V 15 
yOe-000 RMSCONNECT3B 1 Sep-1 3b 9}: af 33 DISKSVMSMASTER: chang’ She RM3CONN.B32; eer (2) | 

Bock 31 Qoles 188: BRU 338 : | 

50 60 AA § 183 158: MOVZWL 96 (1FAB), RO : 0635 | : 

‘ 17 a7 9 16F MOVZBL 3 IDX DFN), SIZE : 0637. : 

™ ' 9F TF O8197 BRB ze, size : 

03 0087 cA 91 00179 208: CHB (thar, #3 ; 0639) 3 

56 07 KS 9 001 ROVAB FRO, SIZE : 0643 3 

56 02 Ad 9 1 218: MOVAB the SIZE > 0645 ; 

: gy HD abigs 28) geek Suen bel lor 

5¢ ge 06 18F MOVL We. SIZE + 0649 : 

0 0087 cA 4 0198 238 CAPE 1B3(1FAB). #3 + 0655 : 

01 0082 cA 91 90199 CHE T7BcaFaeD. "1 + 0657 : 

55 06 AA 6 STa5 BLBC 6(IFAB), 28$ > 0659 : 

52 56 DO OO1A4 24%:  MOVL SIZE, RO > 0666 : 

51 D4 OO1A7 CLRL RI : : 

000000006 FF 16 001A9 JSB RMSGETSPC1 : ; 

6E 0 OD Betas MOVL RO, STATUS s 3 

06 —E €9 0182 BLBC STATUS, 25$ : : 

68 Ad 1 0 00185 MOVE BLK, 164 (1RAB) ; 0668 ; 

% 22 AA 3 eI 01BB 25$: BBC #3, 34(I1FAB), 17% 0673 : 

56 0082 cA A 001C MOVZBL 178(IFAB), Si : ; 

0c 6 D1 O01C CMPL SIZE, #12 : ; 

03 18 O01C BGEO  26$ : : 

56 OC DO OOICA MOVL A F SIZE : 3 

54 64 AD DO OO1CD 268: MOVL 19 (IRAB), R4 : : 

23 D4 101 CLRL oR : : 

52 6 DO 00103 MOVL SIZE, R2 : ; 

000000006 FF af Soipe sso ane TSP £9674 

71 22. AA 3 £1 OO1DF 278: BBC ge 344 1FAB) 34$ > 0683 : 

52 6 DO O01E4 MOVL SIZE : 0690 : 

1 D4 OIE? CLRL 3 : : 

000000006 EF 16 OO1E9 JSB RMSGETSPC1 : ; 

Of 4 p Hy Beat Or ATUS. bos : ; 

6c AD i 09 188 as, nowt K, se ; 0692 ; 

54 68 a9 DO 001FB $e: MOVL 104 CRAB), R > 0698 | : 

2 D4 OOTFF CLRL : | ; 

52 6 00 1 MOVL SIZE, R2 : 3 

000000006 ai 16 JSB RNSRETSPC 1 ; : 

1C 22. sAA 3 FI A BBC #3 4CIFAB), 31$ : ; 

5 00B2 CA 9A F MOVZBL 178(IFAB), SIZE : ; 

0c : D1 00214 CMPL $1 E, #i2 : | ; 

1 17 BGEG : | ; 

6 08 19 MOVL #12, SIZE : ; 

4 64 «OA v6 : 30$ ROVL 19 {IRAB), R4 ; | ; 

52 36 BO 0029 MOVL = SIZE, R2 | : 


3 j 
RM3C ; 1b-se -1984 01:38:5 VAK"11 Bliss-32 V4.0-74 P 16 
vOu-000 RMSCONNECT3B een 198s 3:01:17 DI SKSVNMASTERERMS SRCIRMSCONN.B32;1°%° (25) vo 
000099006 EF 16 © JSB RMSRETSPC1 ; ; 
6 4 CA 3¢ 31$:  MOVZWL 180(IFAB), SIZE t 0699 ; 
4 C4 MULL2 #6, SIZE ; : 
C D1 CMPL site. wi2 : ; 
1 BGEQ 3 ; 
56 D 338: MOVL #12, SIZE : : 
4 60 Ad D B 33$: MOVL 96(IRAB). RG : ; 
2 D4 F CLRL oR : : 
52 6 00 00241 MOVL SIZE, R2 : ; 
900000006 ef 1 0 44 JSB RMSRETSPC1 : ; 
00000006 EF 1 4A JSB RMSD I SCOMMON : ; 
50 ge p MOVL TATUS, RO : F 
BRB $$ : F 
00c3 9 35 AB 90 4$:  MOVB (RAB), 195(IRAB) > 0714 ; 
0 1 00 0 38 5$:  MOVL 1, RO + 0715 ; 
4 CO 0025E 36$: ADDL2 #4, SP 3; 0717 3 
OOFC BF BA 00261 POPR #*M<R2,R3,R4,R5,R6,R7> : ; 
05 00265 RSB : 3 
; Routine Size: 614 bytes, Routine Base: RMSRMS3 + 0000 ; 
: 655 0718 1 : 
: 656 0719 1 END : 
: 657 0720 1 F 
: 658 0721 0 ELUDOM ; 
: 
; PSECT SUMMARY ; 
; Name Bytes Attributes ; 
> RMSRMS3 614 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) ; 
; Library Statistics | : 
aS. | See ee Symbols -------- Pages Processing | ; 
: File Total Loaded Percent Mapped Time | : 
;  _$255$DUA28:CRMS.OBJIRMS.L32;1 3109 67 2 154 00:00.4 | ; 
| : 
: COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=L1S$:RM3CONN/OBJ=O0BJ$:RM3CONN MSRCS$:RM3CONN/UPDATE=(ENHS : RM3CONN) 
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